program testConstantFolding2;

class testConstantFolding2
BEGIN
   
   VAR ee : integer;

FUNCTION testConstantFolding2;
BEGIN
   ee := 1 + (8 * (7 - 2) / 10) + 3
END

END
.

